home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / ezzcomm.zip / OMEN.T < prev    next >
Text File  |  1991-02-16  |  1KB  |  40 lines
  1.  : EZ-ZCOMM Copyright 1991 by Roger E. Hough, All Rights Reserved.
  2.  : Licensed for use at your own risk without fee. Altered versions,
  3.  : when distributed, must be clearly marked as altered and accompanied
  4.  : by the originals.
  5.  ena -K!Z
  6.  set fpgup "@accept s0 Upload-Filename:;if %s0 sz %s0"
  7.  set fpgdn "@rz"
  8.  pat;pat 0i "Omen Technology";wait -F15;if !0||!c bye;return
  9.  pat;pat 0c ") Please: " "%n1 %n2\r"
  10.  pat 1c "'%n1 %n2'"
  11.  pat 2c "Correct (y/n) ?" "@ife 1 mput y;else mput n"
  12.  pat 3i "Scanning for";wait -f30
  13.  pat 22cp "order Pro-YAM now (y/n) ?" n
  14.  pat 23cp "order Pro-YAM (y/n) ?" n
  15.  pat 24cp "rz\r**\030" "@rz -p"
  16.  pat;pat 0i "Yam-Host(C):";wait -f30
  17.  pat;if f%n8/omen.* expand %lib/omenmail.t %n8/omen.*
  18.  if f%n8/bugdemo*.* sets s9 %dirsx;set dirsx "";sz -uZ %n8/bugdemo*.*;sets dirsx %s9;pat;pat 0i "Yam-Host(C):";wait -f30
  19.  if !f%n8/%remote.dl goto ndnl
  20.  : Download files listed in <bbs>.dl
  21.  display inhibit;open -!g %n8/%remote.dl;display noinhibit
  22.  ife t goto dlsk;goto ddnl
  23. dlnx:
  24.  if !c w;close;return
  25.  pat;pat 0i "Yam-Host(C):";wait -f50;if !c w;close;return
  26. dlsk:
  27.  grab z1;if !t goto ddnl
  28.  setc z9 \032;if Iz9,z1 closetx;goto ddnl
  29.  pat;mput "sz %z1\r"
  30.  goback dlnx
  31. ddnl:
  32.  del %n8/%remote.dl
  33. ndnl:
  34.  mput "sz -Zr answer\r"
  35.  pat;pat 0i "Yam-Host(C):";wait -f50;if !c w;close;return
  36.  pat;lput "\r\n%n1, press alt-N if you want to run the session manually.\r\n"
  37.  pat;wait -F5;if !c bye;ife r nolog close;return
  38.  pat;putw bye\r;bye
  39.  return
  40.